home *** CD-ROM | disk | FTP | other *** search
/ Power CD / Power CD ATARI-Rechner Lieben.iso / DFUE / CONNECT / SCRIPTS / DBOX.SCR < prev    next >
Encoding:
Text File  |  1993-12-02  |  4.2 KB  |  163 lines
  1. # D-Tausch-Script für Connect, mit (wahlweiser) Erstellung des Tauschfiles.
  2. # Die Folgenden Parameter MÜSSEN angepasst werden, besonders der Username,
  3. # der Boxname im Connect-Telefonbuch (box=) und die PFADE der Dateien!
  4. # Das Protokoll (ONLINE.TXT)  entspricht dem des D-Call, kann also auch bei
  5. # Fehlern zur Auswertung dienen.
  6. # Achtung: die gequoteten Zeichen bei den Pfaden sind notwendig! (Das liebe
  7. # ich so an  der *NIX-Shell...)
  8. # Wird der Script bei der D-Box in die Wahlliste eingetragen (Script: 'DBOX.SCR -n'),
  9. # dann wird der Tausch beim Connect automatisch vorgenommen! Vorher natürlich das
  10. # Tauschfile erstellen. So kann man bei mehreren Boxen anwählen.
  11.  
  12. maxtry=500
  13. sleeptime=10
  14. box='D-Box'
  15. username='Hans Gans'
  16. sendfile=\''f:\d_tausch\export\to_dbox.lzh'\'
  17. recepath=\''f:\d_tausch\import\'\'
  18. modpath=\''f:\d_tausch\module'\'
  19. protfile=\''f:\d_tausch\datei\online.txt'\'
  20. d_call='d_call.prg'
  21. # nun das ati2 für Zyxel-Besitzer, für andere Modems bitte anpassen
  22. # Falls es keinen 'Verbindungs-Status' gibt, einfach auf 'at' ändern!
  23. report='ati2'
  24. # Befehle zum Ausstieg mit/ohne Fehler (bei quit wird connect beendet)
  25. error='exit 1'
  26. okay='quit 0'
  27. # Einstellung der Z-Modem-Parameter: in CONNECT unter dem angegebenen Slot 
  28. # eingeben. Die Pfade werden vom Script gesetzt.
  29. slot 1
  30.  
  31. # So, das waren die Einstellungen, jetzt kommt der Script.
  32.  
  33.  
  34. ctty vt52 vt52id atari
  35. version='1.74'
  36.  
  37. echo \33'E'
  38. echo ""
  39. echo "             D-Tausch Script Vers. 1.0 für die D-Box"
  40. echo "                   (C) by Carsten Meyer @HH2"
  41. echo "                  Änderungen von EWK Vers. $version"
  42. echo ""
  43.  
  44.  
  45. prot -off
  46.  
  47. if ["$1" != "-n"]; then
  48.    alert 1 '[2][DBOX.SCR Vers. '$version'|Soll das Exportfile|erstellt werden?][Ja|Niemals|Abbruch]'
  49.    if [$ALERT -eq 3]; then
  50.       $error
  51.    fi
  52.    if [$ALERT -eq 1]; then
  53.       echo \33'E'
  54.       echo "$sendfile wird erstellt!"
  55.       > $sendfile
  56.       cd $modpath
  57.       $d_call -o
  58.       cd $OLDPWD
  59.       echo \33'E'
  60.       redraw
  61.       if [-s $sendfile]; then
  62.          echo "Und los geht's..."
  63.       else
  64.          echo "$sendfile konnte nicht erstellt werden!"
  65.          $error
  66.       fi
  67.    else
  68.       if ! [ -s $sendfile ]; then
  69.          echo "Bitte erst D_Tausch starten und Tauschfile erstellen !"
  70.          $error
  71.       else
  72.          echo "los geht's...."
  73.       fi
  74.    fi
  75.  
  76.    dial -v -r $maxtry -s $sleeptime "$box"
  77.    err=$?
  78.    
  79.    if [ $err -ne 0 ]; then
  80.       echo "Das mit der Anwahl war wohl nix ! ;-(("
  81.       if [ $err -eq 9 ]; then
  82.          echo "RING empfangen, bitte Hörer abnehmen!"
  83.       else
  84.          if [ $err -eq 3 ]; then
  85.             echo "Es war leider $maxtry mal besetzt."
  86.          else
  87.             echo "Fehler $err bei der Anwahl."
  88.          fi
  89.       fi
  90.       hangup
  91.       $error
  92.    fi
  93. else
  94.    echo "D-Box bereits online, starte Tausch..."
  95.    echo ""
  96. fi
  97. echo "Puuh...geschafft,nun aber los...."
  98.  
  99. # ONLINE.TXT löschen ...
  100. echo "Connect-Protokoll DBOX.SCR $version" > $protfile
  101. prot -on -nodist $protfile
  102.  
  103. if ! waitfor -t 30 'online >>' '**'\30'B' 'RETURN'; then
  104.    echo "Da ist was abgekachelt,bitte den SysOp verständigen !"
  105.    hangup
  106.    send "$report"
  107. #  Dummy-waitfor, damit der Link-Report im Protokoll erscheint
  108.    waitfor -t 2 '@@@@'
  109.    prot -off
  110.    $error
  111. fi
  112.  
  113. waitfor -t 1 '@@@@'
  114. send  '@CN'"$username"
  115. waitfor -t 1 '@@@@'
  116.  
  117. if ! waitfor -t 30 '**'\30'B'; then
  118.    echo "Die Box will das LZH-File nicht!"
  119.    hangup
  120.    send "$report"
  121.    waitfor -t 2 '@@@@'
  122.    prot -off
  123.    $error
  124. fi
  125.  
  126. waitfor -t 2 '@@@@'
  127.  
  128. if ! upload $sendfile; then
  129.    echo "Fehler beim Senden von $sendfile"
  130.    hangup
  131.    send "$report"
  132.    waitfor -t 2 '@@@@'   
  133.    prot -off
  134.    $error
  135. fi
  136.  
  137. #warten auf das OUTFILE von der Box..
  138. waitfor -t 600 '**'\30'B00000000' 'NO CARRIER'\15
  139. if [ $WAITID -ne 1 ]; then
  140.    echo "NO CARRIER: Verbindungsabbruch!"
  141.    hangup
  142.    send "$report"
  143.    waitfor -t 2 '@@@@'
  144.    prot -off
  145.    $error
  146. fi
  147. if ! download -p $recepath; then
  148.    echo "Fehler beim Empfangen von der Box"
  149.    hangup
  150.    send "$report"
  151.    waitfor -t 2 '@@@@'
  152.    prot -off
  153.    $error
  154. else
  155.    echo " Hübsch, hat alles geklappt... ich hau dann mal ab..."
  156. fi
  157. sleep 1s
  158. hangup
  159. send "$report"
  160. waitfor -t 2 '@@@@'
  161. prot -off
  162. $okay
  163.